home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t7.d64 / swerve.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  126 lines
  1. 8 POKE53280,15:POKE53281,15
  2. 10 PRINT"[147] [213][195][195][195][195]
  3. 11 [153]" PEEK     (null)        (null)THENUSRUSRUSRUSR (null)USRUSR(null) (null)    (null)+USRUSRUSRUSR
  4. 12 PRINT" [202][195][195][195][201]  [205]  [206][205]  [206] [167][195][195][195]  [204][175][175][206]  [205]  [206] [170][195][195][195]
  5. 13 [153]"     PEEK   (null)(null)  (null)(null)  THENANDANDANDAND FN  (null)   (null)(null)  THENANDANDANDAND
  6. 14 PRINT" [195][195][195][195][203]
  7. 15 [153],"WRITTEN FOR THE PET
  8. 16 PRINT,"       BY
  9. 18 [153],"MALCOLM MICHAEL
  10. 20 PRINT,"ADAPTED FOR THE 64
  11. 21 [153],"       BY
  12. 22 PRINT,"STEVEN DARNOLD
  13. 23 [153],"P.O. BOX 201
  14. 24 PRINT,"ALEXANDRA, NEW ZEALAND";
  15. 30 FORI=1TO4000:NEXT
  16. 40 PRINT"[147]MANEUVER YOUR [151][209] AROUND THE TRACK WITHOUT
  17. 45 [153]"COLLIDING WITH THE COMPUTER'S POKE(null)
  18. 50 PRINT"YOU GET 10 POINTS FOR RUNNING OVER A [151]+
  19. 55 [153]"YOU GET 22 POINTS FOR RUNNING OVER A POKE(null)
  20. 90 GOSUB61015
  21. 105 TR=1:CS=0:HS=0
  22. 110 P1=54273:P2=54276
  23. 120 V1=1:V2=32:V3=102:V4=230:V5=93:V6=64:V7=80:V8=96
  24. 130 DIMD(3)
  25. 140 PRINT"[147]":S$="":POKE54277,8:POKE54296,15
  26. 150 PRINT"";S$;"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  27. 160 PRINTS$"[221]+ + + + + + +[166][166][166][166][166]+ + + + + + +[221]"
  28. 170 PRINTS$"[221] [176][192][192][192][192][192][192][192][192][192][192][192][166][166][166][166][166][192][192][192][192][192][192][192][192][192][192][192][174] [221]"
  29. 180 PRINTS$"[221]+[221]+ + + + + +[166][166][166][166][166]+ + + + + +[221]+[221]"
  30. 190 PRINTS$"[221] [221] [176][192][192][192][192][192][192][192][192][192][166][166][166][166][166][192][192][192][192][192][192][192][192][192][174] [221] [221]"
  31. 200 PRINTS$"[221]+[221]+[221]+ + + + +[166][166][166][166][166]+ + + + +[221]+[221]+[221]"
  32. 210 PRINTS$"[221] [221] [221] [176][192][192][192][192][192][192][192][166][166][166][166][166][192][192][192][192][192][192][192][174] [221] [221] [221]"
  33. 220 PRINTS$"[221]+[221]+[221]+[221]+ + + +[166][166][166][166][166]+ + + +[221]+[221]+[221]+[221]"
  34. 230 PRINTS$"[221] [221] [221] [221] [176][192][192][192][192][192][166][166][166][166][166][192][192][192][192][192][174] [221] [221] [221] [221]"
  35. 240 PRINTS$"[221]+[221]+[221]+[221]+[221]+ + +[166][166][166][166][166]+ + +[221]+[221]+[221]+[221]+[221]"
  36. 250 PRINTS$"[221][166][166][166][166][166][166][166][166][146] [176][192][192][192][192][192][192][192][192][192][192][192][174] [166][166][166][166][166][166][166][166][146][221]"
  37. 260 PRINTS$"[221][166][166][166][166][166][166][166][166][166][146][221]S W E R V E[221][166][166][166][166][166][166][166][166][166][146][221]"
  38. 270 PRINTS$"[221][166][166][166][166][166][166][166][166][166][146][221][152]GAME  SCORE[146][221][166][166][166][166][166][166][166][166][166][146][221]"
  39. 280 PRINTS$"[221][166][166][166][166][166][166][166][166][166][146][221]           [221][166][166][166][166][166][166][166][166][166][146][221]"
  40. 290 PRINTS$"[221][166][166][166][166][166][166][166][166][146] [173][192][192][192][192][192][192][192][192][192][192][192][189][166][166][166][166][166][166][166][166][146][221]"
  41. 300 PRINTS$"[221]+[221]+[221]+[221]+[221]+ + +[166][166][166][166][166]+ + +[221]+[221]+[221]+[221]+[221]"
  42. 310 PRINTS$"[221] [221] [221] [221] [173][192][192][192][192][192][166][166][166][166][166][192][192][192][192][192][189] [221] [221] [221] [221]"
  43. 320 PRINTS$"[221]+[221]+[221]+[221]+ + + +[166][166][166][166][166]+ + + +[221]+[221]+[221]+[221]"
  44. 330 PRINTS$"[221] [221] [221] [173][192][192][192][192][192][192][192][166][166][166][166][166][192][192][192][192][192][192][192][189] [221] [221] [221]"
  45. 340 PRINTS$"[221]+[221]+[221]+ + + + +[166][166][166][166][166]+ + + + +[221]+[221]+[221]"
  46. 350 PRINTS$"[221] [221] [173][192][192][192][192][192][192][192][192][192][166][166][166][166][166][192][192][192][192][192][192][192][192][192][189] [221] [221]"
  47. 360 PRINTS$"[221]+[221]+ + + + + +[166][166][166][166][166]+ + + + + +[221]+[221]"
  48. 370 PRINTS$"[221] [173][192][192][192][192][192][192][192][192][192][192][192][166][166][166][166][166][192][192][192][192][192][192][192][192][192][192][192][189] [221]"
  49. 380 PRINTS$"[221]+ + + + + + +[166][166][166][166][166]+ + + + + + +[221]"
  50. 390 PRINTS$"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  51. 400 PRINT"";TAB(15);MID$(STR$(TR),2)
  52. 410 CRT=1024:W=55296-CRT
  53. 420 K=CRT+23*40+15+LEN(S$):P=K+2
  54. 425 DF=1
  55. 430 D(0)=1:D(1)=-40:D(2)=-1:D(3)=40
  56. 440 DK=2:DP=0:TK=1:TP=1:V9=43
  57. 450 SK=0:SC=0:FP=V3:FK=102
  58. 460 POKEP2,0:POKEK,87:POKEK+W,6:POKEP,81:POKEP+W,6:IFP=KTHEN690
  59. 470 POKEP2,16:POKEP2,17:POKEP1,SD:SD=0
  60. 480 C=PEEK(P+D(DP)):IFC<>43ANDC<>V9THEN500
  61. 485 SC=SC+INT(C/4):SD=C*2
  62. 495 PRINT"[145]"TAB(18)RIGHT$("      "+STR$(SC),8):C=V8
  63. 497 IFSC>999THENV9=90
  64. 500 IFC=93ORC=64THENDP=DP+1:C=V2:IFDP>3THENDP=0
  65. 510 IFC=87THEN690
  66. 520 POKEP,FP:POKEP+W,2:FP=C:P=P+D(DP):IFRND(1)>.85THEN600
  67. 530 C=PEEK(K+D(DK)):IFC=93ORC=64THENDK=DK-1:C=V2:IFDK<0THENDK=3
  68. 540 IFC=V8THENC=V9
  69. 545 IFC=81THEN690
  70. 550 POKEK,FK:POKEK+W,2:K=K+D(DK):FK=C
  71. 552 IFC<>V3ANDC<>V4THENTL=DF:GOTO600
  72. 556 TL=TL-1:IFTL<0THEN600
  73. 560 IFC=V3ANDTK<TPTHENK=K+V7*D(DK):TK=TK+V1
  74. 570 IFC=V3ANDTK>TPTHENK=K-V7*D(DK):TK=TK-V1
  75. 580 IFC=V4ANDTK<TPTHENK=K-2*D(DK)/40:TK=TK+V1
  76. 590 IFC=V4ANDTK>TPTHENK=K+2*D(DK)/40:TK=TK-V1
  77. 600 MV=0:I=J(PEEK(PK)AND15)
  78. 620 IF(IAND1)ANDFP=V3THENJS=P-80:TT=TP+SGN(D(DP)):MV=1
  79. 630 IF(IAND2)ANDFP=V3THENJS=P+80:TT=TP-SGN(D(DP)):MV=1
  80. 640 IF(IAND4)ANDFP=V4THENJS=P-2:TT=TP-SGN(D(DP)):MV=1
  81. 650 IF(IAND8)ANDFP=V4THENJS=P+2:TT=TP+SGN(D(DP)):MV=1
  82. 655 IFMV=0THEN680
  83. 660 IFMVTHENSD=14
  84. 670 IFPEEK(JS)=FPTHENTP=TT:P=JS
  85. 680 DF=1+INT(SC/500)
  86. 685 GOTO460
  87. 690 X=P-CRT:PRINT"";
  88. 700 Y=INT(X/40):X=X-Y*40
  89. 710 FORA=1TOY:PRINT"";:NEXT
  90. 720 PRINTTAB(X-2)"[144][195][214][144][195][145][157][157][157][205][221][206][157][157][157][206][221][205]"
  91. 730 FORA=1TO25:POKEP2,33:POKEP1,1:POKEP2,0:POKEP2,33:POKEP1,3:POKEP2,0
  92. 740 POKEP2,33:POKEP1,2:POKEP2,0:NEXT
  93. 750 POKE54296,0
  94. 760 TM=TI+150
  95. 770 IFTI<TMTHEN770
  96. 780 GETA$:IFA$<>""THEN780
  97. 790 IFSC>HSTHENHS=SC
  98. 800 CS=CS+SC
  99. 810 PRINT"[147] YOUR SCORE FOR GAME"TR"WAS"SC;"[157],":TR=TR+1
  100. 820 PRINT" FOR AN AVERAGE OF"INT(CS/TR+.5)"POINTS/GAME."
  101. 830 PRINT" YOUR HIGH SCORE SO FAR IS"HS;"[157]."
  102. 840 IFPK=203THENINPUT"DO YOU WISH TO PLAY AGAIN";A$:IFLEFT$(A$,1)<>"Y"THEN880
  103. 870 PRINT"PRESS FIRE BUTTON[146] TO PLAY AGAIN":WAITPK,16,16:GOTO140
  104. 880 POKE54276,0:POKE54273,0:POKE54277,0:END
  105. 61015 READI,D,F,Q,S,K:FORT=I+8TOD:READX:POKET,X:NEXT
  106. 61020 DIMJ(15):INPUT"USING A JOYSTICK";A$:IFLEFT$(A$,1)<>"Y"THEN61060
  107. 61025 INPUT"PORT 1 OR 2";A$
  108. 61030 PK=56322-VAL(A$):FORI=0TO15:J(I)=15-I:NEXT:GOTO105
  109. 61060 PK=203:J(2)=8:J(3)=2:J(6)=1:J(7)=4
  110. 61070 PRINT"[147]                           UP
  111. 61073 [153]"
  112. 61074 PRINT"                         [207][183][183][183][183][183][208]
  113. 61075 [153]"                         SGN F 5 +
  114. 61076 PRINT"                         [204][175][175][175][175][175][186]
  115. 61077 [153]"
  116. 61078 PRINT"    [207][183][183][183][183][208] [207][183][183][183][183][208]        [207][183][183][183][183][183][208]
  117. 61079 [153]"    SGNCRSR+ SGNCRSR+        SGN F 7 +
  118. 61080 PRINT"    [204][175][175][175][175][186] [204][175][175][175][175][186]        [204][175][175][175][175][175][186]
  119. 61081 [153]"
  120. 61082 PRINT"     LEFT   RIGHT         DOWN":FORI=1TO5000:NEXT:GOTO105
  121. 61200 DATA651,748,706,703,147,164,173,79,232,74,74,74,74,45,79,232,168,185
  122. 61210 DATA237,2,76,193,2,32,228,255,201,49,144,4,201,58,144,10,201,32,208,4,169
  123. 61220 DATA48,208,2,169,53,56,233,48,162,255,142,151,0,162,94,168,185,217,2,149
  124. 61230 DATA0,185,227,2,149,1,169,0,160,4,149,2,232,136,208,250,96,0,129,130,130
  125. 61240 DATA131,131,131,131,132,132,0,0,0,64,0,32,64,96,0,16
  126.